A = scan("repeat-4-7.txt")
jpeg("hist-4-7.jpg")
hist(A ,col="blue1", main="Histogram of # of repeats for 4^7 DNA", xlab='# of repeats', ylab='number of occurrence', labels=TRUE)
dev.off()

A = scan("repeat-4-8.txt")
jpeg("hist-4-8.jpg")
hist(A ,col="blue1", main="Histogram of # of repeats for 4^8 DNA", xlab='# of repeats', ylab='number of occurrence', labels=TRUE)
dev.off()

A = scan("repeat-4-9.txt")
jpeg("hist-4-9.jpg")
hist(A ,col="blue1", main="Histogram of # of repeats for 4^9 DNA", xlab='# of repeats', ylab='number of occurrence', labels=TRUE)
dev.off()

A = scan("repeat-4-10.txt")
jpeg("hist-4-10.jpg")
hist(A ,col="blue1", main="Histogram of # of repeats for 4^10 DNA", xlab='# of repeats', ylab='number of occurrence', labels=TRUE)
dev.off()

A = scan("repeat-4-11.txt")
jpeg("hist-4-11.jpg")
hist(A ,col="blue1", main="Histogram of # of repeats for 4^11 DNA", xlab='# of repeats', ylab='number of occurrence', labels=TRUE)
dev.off()

A = scan("repeat-4-12.txt")
jpeg("hist-4-12.jpg")
hist(A ,col="blue1", main="Histogram of # of repeats for 4^12 DNA", xlab='# of repeats', ylab='number of occurrence', labels=TRUE)
dev.off()

